package ICreator;

sub new {
	my ($class, $cclass, $ctor) = @_;
	
	return bless {
		class => $cclass,
		ctor => $ctor 
	}, $class;
}

sub class {
	return (shift)->{class};
}

sub ctor {
	return (shift)->{ctor};
}

1;